home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
FILES.SWG
/
0004_FILENAME.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
314b
|
10 lines
if you want to remove the period, and all Characters after it in
a valid Dos Filename, do the following...
FileName := 'MYFile.TXT';
Name := Copy(FileName, 1, Pos('.', FileName) - 1);
That will do it. or you can use FSplit to break out all the
different parts of a Filename/path and get it that way.